Sub muestra_is()
    Dim precio As Double
    precio = 1500
    Select Case precio
        Case Is <= 1000
            Debug.Print "Barato"
        Case Is <= 2000
            Debug.Print "Normal"
        Case Else
            Debug.Print "Caro"
    End Select
End Sub
